home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / lang / nrcobol_1e.lha / NRCOBOL1e / COBFILES / FLIGHTS.COB < prev    next >
Text File  |  1998-02-04  |  22KB  |  540 lines
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID.   FLIGHTS.
  3.       *PROGRAM DISCRIPTION.
  4.       *  A program to update and print data from an indexed file called
  5.       * 'FLIGHT. FILE'.Used to translate value codes from the input file
  6.       * to a more readable form are two lookup tables called 'AIRPLANES'
  7.       * and 'AIRPORTS'.
  8.       *  AIRPLANE, contains the airplanes' code and their corresponding
  9.       * discription. AIRPORTS ,contains the airports' code and their
  10.       * corresponding airport names.  PRT: version.
  11.       *
  12.       *AUTHOR.        cHArRiOTt.
  13.       *INSTALLATION.
  14.       *DATE-WRITTEN.  SEP 28th 89.
  15.       *DATE-COMPILLED.
  16.       *SECURITY.
  17.        ENVIRONMENT DIVISION.
  18.  
  19.        CONFIGURATION SECTION.
  20.        SOURCE-COMPUTER.   AMSTRAD 1512.
  21.        OBJECT-COMPUTER.
  22.        INPUT-OUTPUT SECTION. 
  23.        FILE-CONTROL.
  24.             SELECT           AIRPORT
  25.             ASSIGN TO        DISK
  26.             ORGANIZATION IS  INDEXED
  27.             ACCESS MODE  IS  DYNAMIC
  28.             RECORD KEY   IS  ER-AIRPORT-CODE
  29.             FILE STATUS  IS  WS-AIRPORT-STATUS. 
  30.  
  31.             SELECT           AIRPLANE
  32.             ASSIGN TO        DISK
  33.             ORGANIZATION IS  LINE SEQUENTIAL
  34.             ACCESS MODE  IS  SEQUENTIAL
  35.             FILE STATUS  IS  WS-AIRPLANE-STATUS.
  36.  
  37.             SELECT           FLIGHT
  38.             ASSIGN TO        DISK 
  39.             ORGANIZATION IS  INDEXED
  40.             ACCESS MODE  IS  DYNAMIC
  41.             RECORD KEY   IS  ER-FLIGHT-NUMBER
  42.             FILE STATUS  IS  WS-FLIGHT-STATUS.
  43.  
  44.             SELECT           AIR-PRINT
  45.             ASSIGN TO        PRINTER
  46.             ORGANIZATION IS  SEQUENTIAL
  47.             ACCESS MODE  IS  SEQUENTIAL
  48.             FILE STATUS  IS  WS-PRINTER-STATUS.
  49.       *
  50.        DATA DIVISION.
  51.        FILE SECTION.
  52.        FD AIRPORT
  53.             LABEL RECORD IS  STANDARD
  54.             VALUE OF FILE-ID IS "AIRPORTS.OUT".
  55.        01 ER-AIRPORT-REC.
  56.            03 ER-AIRPORT-CODE      PIC 99.
  57.            03 ER-AIRPORT-NAME      PIC X(15).
  58.  
  59.        FD AIRPLANE
  60.             LABEL RECORD IS STANDARD
  61.             VALUE OF FILE-ID IS "AIRPLANE".
  62.        01 ER-AIRPLANE-REC.
  63.            03 ER-AIRPLANE-CODE     PIC X(4).
  64.            03 ER-MAKE-MODEL        PIC X(16).
  65.  
  66.        FD FLIGHT
  67.            LABEL RECORD IS STANDARD
  68.            VALUE OF FILE-ID IS "FLIGHTOUT.FIL".
  69.        01 ER-FLIGHT-REC.
  70.            03 ER-FLIGHT-NUMBER     PIC 9(5).
  71.            03 ER-AIRPLANE-ID       PIC 9(5).
  72.            03 ER-AIRPLANE-MK-CODE  PIC X(4).
  73.            03 ER-FLIGHT-ORG-CODE   PIC 99.
  74.            03 ER-FLIGHT-DES-CODE   PIC 99.
  75.            03 ER-SEATS-FILLED      PIC 999.
  76.            03 ER-SEATS-TABLE.                                 
  77.               05 ER-SEAT-TABLE     OCCURS 10 TIMES.
  78.                  08 ER-SEAT-LETTER OCCURS  6 TIMES.
  79.                     10 ER-SEAT     PIC 9(4).
  80.  
  81.        FD AIR-PRINT
  82.             LABEL RECORD IS OMITTED
  83.             VALUE OF FILE-ID IS "PRT:".
  84.        01 OUT-PRINT-REC.
  85.            03 FILLER               PIC X(80).
  86.       *
  87.        WORKING-STORAGE SECTION.
  88.        01 WS-AIRPORT-REC.
  89.            03 WS-AIRPORT-CODE      PIC 99       VALUE 99.
  90.            03 WS-AIRPORT-NAME      PIC X(15).
  91.       *
  92.        01 WS-AIRPLANE-REC.
  93.            03 WS-AIRPLANE-ARRAY    OCCURS 10 TIMES.
  94.              05 WS-AIRPLANE-CODE   PIC X(4)     VALUE "0000".
  95.              05 WS-MAKE-MODEL      PIC X(16).
  96.       *
  97.        01 WS-FLIGHT-REC.
  98.            03 WS-FLIGHT-NUMBER     PIC 9(5)     VALUE 99.
  99.            03 WS-AIRPLANE-ID       PIC 9(5).
  100.            03 WS-AIRPLANE-MK-CODE  PIC X(4).
  101.            03 WS-FLIGHT-ORG-CODE   PIC 99.
  102.            03 WS-FLIGHT-DES-CODE   PIC 99.
  103.            03 WS-SEATS-FILLED      PIC 999.
  104.            03 WS-SEATS-TABLE.
  105.               05 WS-SEAT-TABLE     OCCURS 10 TIMES.
  106.                  08 WS-SEAT-LETTER OCCURS  6 TIMES.
  107.                     10 WS-SEAT     PIC 9(4).
  108.       *
  109.       *
  110.        01 WS-AIRPLANE-END-FLAG      PIC X       VALUE " ".
  111.            88 WS-AIRPLANE-END                    VALUE "S".
  112.        01 WS-AIRPORT-END-FLAG      PIC X        VALUE " ".
  113.            88 WS-AIRPORT-END                     VALUE "S".
  114.        01 WS-FLIGHT-END-FLAG       PIC X        VALUE " ".
  115.            88 WS-FLIGHT-END                      VALUE "S".
  116.        01 WS-STOP-RUN-FLAG         PIC X        VALUE " ".
  117.        01 WS-ABORT-FLAG            PIC X        VALUE " ".
  118.  
  119.        01 WS-FLIGHT-STATUS         PIC XX       VALUE "00".
  120.        01 WS-AIRPLANE-STATUS       PIC XX       VALUE "00".
  121.        01 WS-AIRPORT-STATUS        PIC XX       VALUE "00".
  122.        01 WS-PRINTER-STATUS        PIC XX       VALUE "00".
  123.  
  124.        01 WS-RECORD-COUNTER        PIC 99       VALUE 00.
  125.        01 WS-PAGE-COUNTER          PIC 99       VALUE 00.
  126.        01 WS-LINE-COUNTER          PIC 99       VALUE 00.
  127.        01 WS-SEAT-ROW              PIC 99       VALUE 00.
  128.        01 WS-SEAT-COLUMN           PIC 99       VALUE 00.
  129.        01 WS-SEAT-NUMBER           PIC 9999     VALUE 0000.
  130.        01 WS-FLIGHT-DEPARTURES     PIC X(15)    VALUE SPACES.
  131.        01 WS-FLIGHT-ARRIVALS       PIC X(15)    VALUE SPACES.
  132.        01 WS-AIRPLANE-NAME         PIC X(16)    VALUE SPACES.
  133.        01 WS-NUMBER-OF-FLIGHTS     PIC 999      VALUE 000.
  134.        01 WS-TOTAL-SEATS-USED      PIC 9(5)     VALUE 000.
  135.        01 WS-TOTAL-SEATS           PIC 9(5)     VALUE 000.
  136.        01 WS-PERCENT-SEATS-FILLED  PIC 9(5)     VALUE 000.
  137.        01 WS-AVERAGE-SEATS-USED    PIC 9(5)     VALUE 000.
  138.        01 WS-AVG-PERCENT-SEATS-FILLED PIC 9(5)   VALUE 000.
  139.        01 WS-REAL-DATE.
  140.            03 WS-REAL-YEAR         PIC XX.
  141.            03 WS-REAL-MONTH        PIC XX.
  142.            03 WS-REAL-DAY          PIC XX.
  143.        01 WS-TEMP-DATE.
  144.            03 WS-TEMP-DAY          PIC XX.
  145.            03 FILLER               PIC X        VALUE "/".
  146.            03 WS-TEMP-MONTH        PIC XX.
  147.            03 FILLER               PIC X        VALUE "/".
  148.            03 WS-TEMP-YEAR         PIC XX.
  149.        01 WS-RESPONCE              PIC X        VALUE " ".
  150.            88 WS-RESPONCE-C        VALUE "C" "c".
  151.            88 WS-RESPONCE-R        VALUE "R" "r".
  152.            88 WS-RESPONCE-Q        VALUE "Q" "q".
  153.            88 WS-RESPONCE-Y        VALUE "Y" "y".
  154.            88 WS-RESPONCE-N        VALUE "N" "n".
  155.            88 WS-RESPONCE-YN       VALUE "Y" "y"
  156.                                          "N" "n".
  157.        01 PRINT-PROG-TITLE.
  158.            03 FILLER               PIC X(5)  VALUE "PAGE ".
  159.            03 WS-PRT-PAGE-COUNTER  PIC 99.
  160.            03 FILLER               PIC X(20) VALUE SPACES.
  161.            03 FILLER               PIC X(25) VALUE
  162.               "AIRLINE SEAT USAGE REPORT".
  163.            03 FILLER               PIC X(20) VALUE SPACES.
  164.            03 WS-PRT-TEMP-DATE     PIC X(8).
  165.        01 PRINT-RECORD.
  166.            03 PRT-AIRPLANE-ID.
  167.               05 FILLER               PIC X(33) VALUE
  168.                "     AIRPLANE-ID               : ".
  169.               05 WS-PRT-AIRPLANE-ID   PIC 9(5).
  170.            03 PRT-AIRPLANE-NAME.
  171.               05 FILLER               PIC X(33) VALUE 
  172.                "     AIRPLANE NAME             : ".
  173.               05 WS-PRT-AIRPLANE-NAME PIC X(16).
  174.            03 PRT-AIRPORT-ORG.
  175.               05 FILLER               PIC X(33) VALUE
  176.                "     AIRPORT - ORIGINATION     : ".
  177.               05 WS-PRT-AIRPORT-ORG   PIC X(15).
  178.            03 PRT-AIRPORT-DES.
  179.               05 FILLER               PIC X(33) VALUE
  180.                "     AIRPORT - DESTINATION     : ".
  181.               05 WS-PRT-AIRPORT-DES   PIC X(15).
  182.            03 PRT-SEATS-FILLED.
  183.               05 FILLER               PIC X(33) VALUE
  184.                "     SEATS FILLED              : ".
  185.               05 WS-PRT-SEATS-FILLED  PIC ZZ9.
  186.            03 PRT-PERCENT-SEATS-FILLED.
  187.               05 FILLER               PIC X(34) VALUE
  188.                "     PERCENTAGE OF SEATS FILLED: %".
  189.               05 WS-PRT-PERCENT-SEATS-FILLED    PIC ZZ9.
  190.        01 PRINT-TOTALS.
  191.            03 PRT-NUMBER-OF-FLIGHTS.
  192.               05 FILLER               PIC X(33) VALUE
  193.                "     NUMBER OF FLIGHTS         : ".
  194.               05 WS-PRT-NUMBER-OF-FLIGHTS       PIC ZZ9.
  195.            03 PRT-TOTAL-SEATS-USAGE.
  196.               05 FILLER               PIC X(33) VALUE
  197.                "     TOTAL SEA